home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MPEG Archives
/
MPEG Archives.iso
/
mpeg
/
files
/
unit1.pas
< prev
Wrap
Pascal/Delphi Source File
|
1996-12-28
|
4KB
|
190 lines
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
flb1: TFileListBox;
Timer1: TTimer;
Panel2: TPanel;
Image2: TImage;
Panel1: TPanel;
Image1: TImage;
Label2: TLabel;
Label1: TLabel;
flb2: TFileListBox;
Panel3: TPanel;
Image3: TImage;
DLB: TDirectoryListBox;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label2Click(Sender: TObject);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1Click(Sender: TObject);
procedure DLBChange(Sender: TObject);
procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label3Click(Sender: TObject);
procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label4Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,J,p:integer;
down:Boolean;
S:sTRING;
CMD:ARRAY[0..255] OF CHAR;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
p:=5;
flb1.directory:='\a';
flb2.directory:='\mpeg\li';
DOWN:=TRUE;
i:=-p;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IF DOWN THEN
BEGIN
i:=i+p;
image1.picture.loadfromfile('\a\'+flb1.items[I]);
if i=720-p then i:=-p;
END;
end;
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
LABEL1.FONT.COLOR:=CLgRAY;
LABEL2.FONT.COLOR:=CLgRAY;
LABEL3.FONT.COLOR:=CLgRAY;
LABEL4.FONT.COLOR:=CLgRAY;
end;
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
LABEL2.FONT.COLOR:=CLLIME;
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
CLOSE;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.font.color:=cllime;
end;
procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
PANEL3.VISIBLE:=FALSE;
FLB2.VISIBLE:=TRUE;
DLB.VISIBLE:=TRUE;
LABEL3.CAPTION:='HIDE';
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
fOR J:=0 TO FLB2.ITEMS.COUNT-1 DO
IF FLB2.SELECTED[J] THEN
BEGIN
STRPCOPY(CMD,'\MPEG\DMPEG -l0 '+DLB.DIRECTORY+'\'+FLB2.ITEMS[J]);
WINEXEC(CMD,sw_SHOWNORMAL);
FLB2.VISIBLE:=FALSE;
DLB.VISIBLE:=FALSE;
PANEL3.VISIBLE:=TRUE;
LABEL3.CAPTION:='VIEW';
END;
end;
procedure TForm1.DLBChange(Sender: TObject);
begin
FLB2.DIRECTORY:=DLB.DIRECTORY;
end;
procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label3.font.color:=cllime;
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
IF LABEL3.CAPTION='VIEW' THEN
BEGIN
PANEL3.VISIBLE:=FALSE;
FLB2.VISIBLE:=TRUE;
DLB.VISIBLE:=TRUE;
LABEL3.CAPTION:='HIDE';
END
ELSE
BEGIN
PANEL3.VISIBLE:=TRUE;
FLB2.VISIBLE:=FALSE;
DLB.VISIBLE:=FALSE;
LABEL3.CAPTION:='VIEW';
END
end;
procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label4.font.color:=cllime;
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
strpcopy(cmd,'explorer \');
winexec(cmd,SW_shownormal);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button=mbleft) and (p<=5) and (p>0) then p:=p-1;
if (button=mbright) and (p<5) then p:=p+1;
if (Button=mbLeft)and (p>5) then p:=p-5;
if (button=mBright) and (p>=5) then p:=p+5;
if p>20 then p:=20;
i:=0;
end;
end.